#start
display b1_2.bmp,1
music ninjin.mid
#start_s
clear
print どうしますか？
goto b1i_menu

#b1
display b1_1.bmp,1
print どうしますか？
#b1_menu
addmenu (移動;いどう)する,b1_move
addmenu (見;み)る,b1_look
input
#b1_look
print (自分;じぶん)の(家;いえ)です。
pause
print あいかわらず、おんぼろだなぁ。
goto b1_menu
#b1_move
print どこに(移動;いどう)しますか？
addmenu (進;すす)む,b2
addmenu (中;なか)に(入;はい)る,b1i
input

#b1i
if b1f3=0
  display b1_2.bmp,1
else
  display b1_3.bmp,1
endif
print どうしますか？
#b1i_menu
if (b1f1>0)*(b1f2>0)
  addmenu (外;そと)に(出;で)る,b1i_move
endif
addmenu (見;み)る,b1i_look
addmenu (話;はな)す,b1i_talk
input
#b1i_look
if b1f3=1
  print ニンジンのお(母;かあ)さんが(病気;びょうき)で(寝;ね)ています。(僕;ぼく)のお(母;かあ)さん/です。
elseif b1f1=0
  print ニンジンのお(母;かあ)さんが(病気;びょうき)で(寝;ね)ています。/あの(人;ひと)が(僕;ぼく)のお(母;かあ)さんか。
  pause
  print ということは、どうやら、(僕;ぼく)はニンジンの(子供;こども)のようで/す。
  b1f1=1
else
  print カブのお(医者;いしゃ)さんもつらそうです。
endif
goto b1i_menu
#b1i_talk
if b1f3=0
  print (誰;だれ)と(話;はな)しますか？
  addmenu ニンジン(母;はは),b1i_talk_n
  addmenu カブ(医者;いしゃ),b1i_talk_k
  input
else
  print ニンジン(母;はは)：すまないねぇ、おまえにまで(迷惑;めいわく)をかけて。
endif
goto b1i_menu
#b1i_talk_n
print ニンジン(母;はは)：うっ、うっ、(苦;くる)しい。
goto b1i_menu
#b1i_talk_k
if b1f2=0
  print カブ(医者;いしゃ)：ワシもやれるだけのことをやったのだが、ど/　　　　　うにもならん。
  pause
  print カブ(医者;いしゃ)：・・・。
  pause
  print カブ(医者;いしゃ)：そうだ、(村長;そんちょう)さんに(相談;そうだん)してみるとよいかも/　　　　　しれない。
  b1f2=1
else
  print カブ(医者;いしゃ)：ワシはカブ(医者;いしゃ)だ。カブであって(断;だん)じてヤブ/　　　　　ではない。
endif
goto b1i_menu
#b1i_move
b1f3=1
if bf1=0
  bf1=1
endif
goto b1

#b2
display b2.bmp,1
print どうしますか？
#b2_menu
addmenu (移動;いどう)する,b2_move
addmenu (見;み)る,b2_look
input
#b2_look
print (道;みち)が(続;つづ)いています。
goto b2_menu
#b2_move
print どこに(移動;いどう)しますか？
addmenu (進;すす)む,b3
addmenu (戻;もど)る,b1
input

#b3
display b3_1.bmp,1
print どうしますか？
#b3_menu
addmenu (移動;いどう)する,b3_move
addmenu (見;み)る,b3_look
input
#b3_look
if b3f1=0
  print (村長;そんちょう)さんの(家;いえ)です。
  pause
  print (僕;ぼく)の(家;いえ)の４(倍;ばい)はありそうだなぁ。
  b3f1=1
else
  print (僕;ぼく)の(家;いえ)の４(倍;ばい)はある(村長;そんちょう)さんの(家;いえ)です。
endif
goto b3_menu
#b3_move
print どこに(移動;いどう)しますか？
addmenu (進;すす)む,b4
addmenu (戻;もど)る,b2
addmenu (中;なか)に(入;はい)る,b3i
input

#b3i
sound pinpon.wav
display b3_2.bmp,1
print どうしますか？
#b3i_menu
addmenu (外;そと)に(出;で)る,b3
addmenu (見;み)る,b3i_look
addmenu (話;はな)す,b3i_talk
input
#b3i_look
if b3f5=0
  print ニンジン(村;むら)の(村長;そんちょう)です。
  pause
  print ニンジンの(村長;そんちょう)さんはニンジン(村;むら)で(一番;いちばん)(偉;えら)いんだ。
  b3f5=1
else
  print ニンジン(村;むら)の(村長;そんちょう)です。
endif
goto b3i_menu
#b3i_talk
if bf1<=2
  if b3f2=0
    print (村長;そんちょう)：(母;はは)の(病気;びょうき)を(治;なお)す(方法;ほうほう)か？(残念;ざんねん)だがわしにもわから/　　　ん。
    b3f2=1
  elseif b3f2=1
    print (村長;そんちょう)：(村;むら)の(外;はず)れに(住;す)むカボチャじいさんなら(知;し)っている/　　　かもしれない。
    b3f2=2
  elseif b3f2=2
    print (村長;そんちょう)：カボチャじいさんの(家;いえ)は、この(先;さき)の(十字路;じゅうじろ)をまっ/　　　すぐ(進;すす)むとあるぞ。
    b3f2=3
  elseif b3f2=3
    print (村長;そんちょう)：おっと、カボチャじいさんと(話;はな)すには(暗号;あんごう)が(必要;ひつよう)/　　　だ。
    pause
    print (村長;そんちょう)：その(暗号;あんごう)は「みどり」だ。(忘;わす)れぬようにな。
    b3f2=4
    bf1=2
  else
    print (村長;そんちょう)：(何;なに)をもたもたしておる。(早;はや)くカボチャじいさんの/　　　ところに(行;い)くのだ。
  endif
elseif bf1<=4
  if b3f3=0
    print (村長;そんちょう)：ミクラルタケなんて(聞;き)いたことがない。おそらく/　　　この(村;むら)にはないであろう。
    b3f3=1
    addmenu (旅;たび)をする,b3i_talk1
    addmenu あきらめる,b3i_talk2
    input
  else
    print (村長;そんちょう)：おまえに(本当;ほんとう)に(勇気;ゆうき)があれば(勇気;ゆうき)の(印;しるし)が(手;て)に(入;はい)る/　　　はずだ。
  endif
else
  if b3f4=0
    print (村長;そんちょう)さん、(勇気;ゆうき)の(印;しるし)を(持;も)ってまいりました。
    pause
    sound give.wav
    display b3_3.bmp,4
    print (村長;そんちょう)：おお！これはまさしく(勇気;ゆうき)の(印;しるし)。おまえにこの(村;むら)/　　　を(出;で)る(許可;きょか)を(与;あた)える。
    pause
    display b3_2.bmp,4
    print (村長;そんちょう)：(村;むら)の(番人;ばんにん)に(連絡;れんらく)しておいたから(安心;あんしん)して(出発;しゅっぱつ)する/　　　がよい。
    b3f4=1
    bf1=6
  else
    print (村長;そんちょう)：(頑張;がんば)るのだぞ。
  endif
endif
goto b3i_menu
#b3i_talk1
print ミクラルタケを(探;さが)して(旅;たび)をします！
pause
print (村長;そんちょう)：しかし、おまえはまだ(子供;こども)だ。(１人;ひとり)で(旅;たび)ができる/　　　かな？
pause
print お(母;かあ)さんのためです。ミクラルタケを(絶対;ぜったい)に(探;さが)さないと/いけないんです。
pause
print (村長;そんちょう)：うむ
wait 500
print (村長;そんちょう)：うむ・
wait 500
print (村長;そんちょう)：うむ・・
wait 500
print (村長;そんちょう)：うむ・・・
pause
print (村長;そんちょう)：わかった。では、こうしよう。(村;むら)の(外;はず)れに(洞窟;どうくつ)が/　　　あるのは(知;し)っておるな。
pause
print (村長;そんちょう)：その(洞窟;どうくつ)の(中;なか)には(勇気;ゆうき)の(印;しるし)があるという。それを/　　　(取;と)ってくるのだ。
bf1=4
goto b3i_menu
#b3i_talk2
print あきらめたらお(母;かあ)さんの(病気;びょうき)は(治;なお)らないんだ。
addmenu (旅;たび)をする,b3i_talk1
addmenu あきらめる,b3i_talk2
input

#b4
display b4.bmp,1
print どうしますか？
#b4_menu
addmenu (移動;いどう)する,b4_move
addmenu (見;み)る,b4_look
input
#b4_look
print (十字路;じゅうじろ)です。(右;みぎ)の(方;ほう)に(洞窟;どうくつ)があります。
goto b4_menu
#b4_move
print どこに(移動;いどう)しますか？
addmenu (左;ひだり),b7
addmenu (前;まえ),b5
addmenu (右;みぎ),b6
addmenu (戻;もど)る,b3
input

#b5
display b5_1.bmp,1
print どうしますか？
#b5_menu
addmenu (移動;いどう)する,b5_move
addmenu (見;み)る,b5_look
input
#b5_look
print カボチャじいさんの(家;いえ)です。ちょっとおんぼろかな。
goto b5_menu
#b5_move
print どこに(移動;いどう)しますか？
addmenu (戻;もど)る,b4
addmenu (中;なか)に(入;はい)る,b5_move1
input
#b5_move1
if bf1<2
  print カボじい：わしはおまえに(用;よう)はない。(帰;かえ)るのじゃ。/（(僕;ぼく)は(用;よう)があるのに・・・）
  goto b5_menu
else
  print カボじい：(暗号;あんごう)は？
  pause
  print み
  wait 400
  print み・
  wait 400
  print み・ど
  wait 400
  print み・ど・
  wait 400
  print み・ど・り
  pause
  print よし、(入;はい)ってよろしい。
endif
goto b5i

#b5i
display b5_2.bmp,1
print どうしますか？
#b5i_menu
addmenu (外;そと)に(出;で)る,b5
addmenu (見;み)る,b5i_look
addmenu (話;はな)す,b5i_talk
input
#b5i_look
if b5f2=0
  print (気難;きむずか)しそうなカボチャじいさんです。
  b5f2=1
elseif b5f1=1
  print カボチャじいさんの(生活;せいかつ)は(質素;しっそ)です。
  b5f2=2
else
  print カボチャじいさんがいろりの(前;まえ)にいます。
endif
goto b5i_menu
#b5i_talk
if b5f1=0
  print カボじい：なに、おまえの(母;かあ)さんが(病気;びょうき)じゃとな。
  pause
  print カボじい：その(症状;しょうじょう)に(効;き)くのはミクラルタケじゃ。うん。
  b5f1=1
  bf1=3
else
  print カボじい：ミクラルタケがどこに(生;は)えているのかはわし/　　　　　にもわからんのじゃ。
endif
goto b5i_menu

#b6
display b6_1.bmp,1
print どうしますか？
#b6_menu
addmenu (移動;いどう)する,b6_move
addmenu (見;み)る,b6_look
input
#b6_look
if bf1<4
  print (洞窟;どうくつ)の(入;い)り(口;ぐち)です。(危;あぶ)ないから(入;はい)ってはいけないと(昔;むかし)か/ら(言;い)われていました。
elseif bf1=4
  print (洞窟;どうくつ)の(入;い)り(口;ぐち)です。この(中;なか)に(勇気;ゆうき)の(印;しるし)があります。
else
  print (勇気;ゆうき)の(印;しるし)があった(洞窟;どうくつ)の(入;い)り(口;ぐち)です。
endif
goto b6_menu
#b6_move
print どこに(移動;いどう)しますか？
addmenu (戻;もど)る,b4
addmenu (中;なか)に(入;はい)る,b6_move1
input
#b6_move1
if bf1<4
  print (入;はい)ったら(怒;おこ)られるよ。
  goto b6_menu
elseif bf1>4
  print もう(入;はい)る(必要;ひつよう)はありません。
  goto b6_menu
endif
goto b6a

#b7
display b7_1.bmp,1
print どうしますか？
#b7_menu
addmenu (移動;いどう)する,b7_move
addmenu (見;み)る,b7_look
addmenu (話;はな)す,b7_talk
input
#b7_look
print (村;むら)の(番人;ばんにん)がいます。
goto b7_menu
#b7_move
print どこに(移動;いどう)しますか？
addmenu (進;すす)む,next
addmenu (戻;もど)る,b4
input
#b7_talk
if bf1<6
  print (番人;ばんにん)：ここは(子供;こども)が(１人;ひとり)でくるところではない。(家;いえ)に(帰;かえ)/　　　りなさい。
else
  print (番人;ばんにん)：おまえが(村長;そんちょう)が(言;い)っていた(子供;こども)だな。(小;ちい)さいのに/　　　(感心;かんしん)な(子;こ)だ。
endif
goto b7_menu

#next
if bf1<6
  print (番人;ばんにん)：(子供;こども)を(通;とお)すわけにはいかん。
  goto b7_menu
endif
print (番人;ばんにん)：(話;はなし)は(村長;そんちょう)からうかがっておる。(気;き)を(付;つ)けていくん/　　　じゃぞ。
display b7_2.bmp,1
pause

goto quit

save 2
goto start,nasu.txt

#b6a
display b6_2.bmp,1
print どうしますか？
#b6a_menu
addmenu (移動;いどう)する,b6a_move
addmenu (見;み)る,b6a_look
input
#b6a_look
print (十字路;じゅうじろ)です。(迷;まよ)いそうだなぁ。
goto b6a_menu
#b6a_move
print どこに(移動;いどう)しますか？
addmenu (左;ひだり),b6b
addmenu (前;まえ),b6c
addmenu (右;みぎ),b6m
addmenu (戻;もど)る,b6
input

#b6b
display b6_5.bmp,1
print どうしますか？
#b6b_menu
addmenu (移動;いどう)する,b6b_move
addmenu (見;み)る,b6b_look
input
#b6b_look
print (行;い)き(止;ど)まりです。
goto b6b_menu
#b6b_move
print どこに(移動;いどう)しますか？
addmenu (戻;もど)る,b6a
input

#b6c
display b6_3.bmp,1
print どうしますか？
#b6c_menu
addmenu (移動;いどう)する,b6c_move
addmenu (見;み)る,b6c_look
input
#b6c_look
print (洞窟;どうくつ)が(分;わか)れています。
goto b6c_menu
#b6c_move
print どこに(移動;いどう)しますか？
addmenu (左;ひだり),b6d
addmenu (右;みぎ),b6k
addmenu (戻;もど)る,b6a
input

#b6d
display b6_d.bmp,1
print どうしますか？
#b6d_menu
addmenu (移動;いどう)する,b6d_move
addmenu (見;み)る,b6d_look
addmenu (話;はな)す,b6d_talk
input
#b6d_look
print (落花生;らっかせい)がいます。
goto b6d_menu
#b6d_move
print どこに(移動;いどう)しますか？
addmenu (進;すす)む,b6e
addmenu (戻;もど)る,b6c
input
#b6d_talk
if bf1<5
  if b6df1=0
    print (落花生;らっかせい)：この(先;さき)に(僕;ぼく)の(仲間;なかま)がいて(勇気;ゆうき)の(印;しるし)を(持;も)っている/　　　　よ。
    b6df1=1
  elseif b6df1=1
    print (落花生;らっかせい)：(僕;ぼく)たちは(勇気;ゆうき)を(持;も)つ(人;ひと)にしか(見;み)えないんだ。
    b6df1=2
  else
    print (落花生;らっかせい)：(君;きみ)だったら(勇気;ゆうき)の(印;しるし)を(手;て)に(入;い)れられるよ。
  endif
else
  print (落花生;らっかせい)：(勇気;ゆうき)の(印;しるし)を(手;て)に(入;い)れたんだね。おめでとう。
endif
goto b6d_menu

#b6e
display b6_3.bmp,1
print どうしますか？
#b6e_menu
addmenu (移動;いどう)する,b6e_move
addmenu (見;み)る,b6e_look
input
#b6e_look
print また、(道;みち)が(分;わ)かれています。
goto b6e_menu
#b6e_move
print どこに(移動;いどう)しますか？
addmenu (左;ひだり),b6f
addmenu (右;みぎ),b6g
addmenu (戻;もど)る,b6d
input

#b6f
display b6_5.bmp,1
print どうしますか？
#b6f_menu
addmenu (移動;いどう)する,b6f_move
addmenu (見;み)る,b6f_look
input
#b6f_look
print (行;い)き(止;ど)まりです。
goto b6f_menu
#b6f_move
print どこに(移動;いどう)しますか？
addmenu (戻;もど)る,b6e
input

#b6g
display b6_2.bmp,1
print どうしますか？
#b6g_menu
addmenu (移動;いどう)する,b6g_move
addmenu (見;み)る,b6g_look
input
#b6g_look
print (道;みち)が３つに(分;わ)かれています。
goto b6g_menu
#b6g_move
print どこに(移動;いどう)しますか？
addmenu (左;ひだり),b6h
addmenu (前;まえ),b6i
addmenu (右;みぎ),b6j
addmenu (戻;もど)る,b6e
input

#b6h
display b6_5.bmp,1
print どうしますか？
#b6h_menu
addmenu (移動;いどう)する,b6h_move
addmenu (見;み)る,b6h_look
input
#b6h_look
print (行;い)き(止;ど)まりです。
goto b6h_menu
#b6h_move
print どこに(移動;いどう)しますか？
addmenu (戻;もど)る,b6g
input

#b6i
display b6_5.bmp,1
print どうしますか？
#b6i_menu
addmenu (移動;いどう)する,b6i_move
addmenu (見;み)る,b6i_look
input
#b6i_look
print (行;い)き(止;ど)まりです。
goto b6i_menu
#b6i_move
print どこに(移動;いどう)しますか？
addmenu (戻;もど)る,b6g
input

#b6j
display b6_j1.bmp,1
print どうしますか？
#b6j_menu
addmenu (移動;いどう)する,b6j_move
addmenu (見;み)る,b6j_look
addmenu (話;はな)す,b6j_talk
input
#b6j_look
print (行;い)き(止;ど)まりに(落花生;らっかせい)がいます。
goto b6j_menu
#b6j_move
print どこに(移動;いどう)しますか？
addmenu (戻;もど)る,b6g
input
#b6j_talk
if bf1<5
  print (落花生;らっかせい)：(君;きみ)には(僕;ぼく)が(見;み)えるんだね。
  pause
  print (落花生;らっかせい)：(僕;ぼく)たちは(勇気;ゆうき)を(持;も)つ(人;ひと)の(心;こころ)の(目;め)でないと(見;み)るこ/　　　　とが(出来;でき)ないんだ。
  pause
  print (落花生;らっかせい)：(君;きみ)の(勇気;ゆうき)の(証;あかし)として、この「(勇気;ゆうき)の(印;しるし)」をあげ/　　　　よう。
  display b6_j2.bmp,4
  pause
  sound get.wav
  print (勇気;ゆうき)の(印;しるし)を(受;う)け(取;と)りました。
  display b6_j1.bmp,4
  bf1=5
else
  print (落花生;らっかせい)：(君;きみ)の(勇気;ゆうき)を(世;よ)の(中;なか)の(人;ひと)のために(使;つか)ってくれ。
endif
goto b6j_menu

#b6k
display b6_4.bmp,1
print どうしますか？
#b6k_menu
addmenu (移動;いどう)する,b6k_move
addmenu (見;み)る,b6k_look
input
#b6k_look
print (洞窟;どうくつ)が(奥;おく)の(方;ほう)に(続;つづ)いています。
goto b6k_menu
#b6k_move
print どこに(移動;いどう)しますか？
addmenu (進;すす)む,b6l
addmenu (戻;もど)る,b6c
input

#b6l
display b6_5.bmp,1
print どうしますか？
#b6l_menu
addmenu (移動;いどう)する,b6l_move
addmenu (見;み)る,b6l_look
input
#b6l_look
print (行;い)き(止;ど)まりです。
goto b6l_menu
#b6l_move
print どこに(移動;いどう)しますか？
addmenu (戻;もど)る,b6k
input

#b6m
display b6_5.bmp,1
print どうしますか？
#b6m_menu
addmenu (移動;いどう)する,b6m_move
addmenu (見;み)る,b6m_look
input
#b6m_look
print (行;い)き(止;ど)まりです。
goto b6m_menu
#b6m_move
print どこに(移動;いどう)しますか？
addmenu (戻;もど)る,b6a
input

#quit
display black,1
music
print (物語;ものがたり)はナスの(村;むら)へと(続;つづ)きますが(体験;たいけん)できるのはここまで/です。つづきは(製品;せいひん)を(買;か)って(遊;あそ)んで(下;くだ)さいね。
pause
print ボタンを(押;お)すとタイトルに(戻;もど)ります。
pause
title